home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / tbasic.arc / TB / DEEK&DOKE (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  59 lines
  1. 0 REM DOKE & DEEK (AUG 24/84)
  2. 1 :
  3. 2 REM 1 STATEMENT, 1 FUNCTION
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS: 9
  6. 5 :
  7. 6 REM KEYWORD ROUTINE LINE SER#
  8. 7 REM S/DOKE  DOK     2636 007
  9. 8 REM F/DEEK( DEEK    2674 008
  10. 9 :
  11. 10 REM U/USFP (2620/006)
  12. 11 :
  13. 12 REM ================================
  14. 13 :
  15. 102 .ASC "DOK[197]"
  16. 601 .ASC "DEEK":.BYTE $A8; DEEK + SHIFTED (
  17. 1102 .WORD DOK-1
  18. 1601 .WORD DEEK-1
  19. 2620 USFP LDX #0  ;ROUTINE TO CONVERT
  20. 2622      STX $0D ;UNSIGNED INTEGER
  21. 2624      STA $62 ;IN .A(HIGH BYTE)
  22. 2626      STY $63 ;AND .Y (LOW BYTE)
  23. 2628      LDX #$90;INTO FLOATING POINT
  24. 2630      SEC     ;IN FPA #1
  25. 2632      JMP $BC49
  26. 2634 ;
  27. 2636 DOK  JSR $AD8A ;GET POKE ADDRESS
  28. 2638      JSR $B7F7 ;CONVERT TO INTEGER
  29. 2640      JSR $AEFD ;CHECK FOR COMMA
  30. 2642      LDA #14   ;STORE ADDRESS
  31. 2644      STA T3    ;AS TEMP VECTOR
  32. 2646      LDA $15
  33. 2648      STA T4
  34. 2650      JSR $AD8A ;GET POKE VALUE
  35. 2652      JSR $B7F7 ;CONVERT TO INTEGER
  36. 2654      LDA $14   ;LOW BYTE TO POKE
  37. 2656      LDY #0    ;INDIRECT INDEX
  38. 2658      SEI       ;TURN OFF IRQ
  39. 2660      STA (T3),Y;SAVE LOW BYTE
  40. 2662      LDA $15   ;HIGH BYTE TO POKE
  41. 2664      INY       ;BUMP INDEX
  42. 2666      STA (T3),Y;SAVE HIGH BYTE
  43. 2668      CLI       ;IRQ ON AGAIN
  44. 2670      RTS
  45. 2672 ;
  46. 2674 DEEK JSR $AEF4 ;GET VAL TEST ')'
  47. 2676      JSR $AD8D ;TEST FOR NUMERIC
  48. 2678      JSR $B7F7 ;CONVERT TO INTEGER
  49. 2680      LDY #1    ;INDIRECT INDEX
  50. 2682      LDA ($14),Y;GET HIGH BYTE
  51. 2684      PHA
  52. 2686      DEY       ;DECREMENT INDEX
  53. 2688      LDA ($14),Y ;GET LOW BYTE
  54. 2690      TAY
  55. 2692      PLA
  56. 2694      JMP USFP   ;CONVERT TO FP
  57. 2696      ;
  58. 2760      RTS
  59.